home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol045 / fc.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  777 b   |  24 lines
  1. 10 INPUT "Enter original file name-",IF1$:OPEN IF1$ FOR INPUT  AS 1
  2. 20 INPUT "Enter modified file name-",IF2$:OPEN IF2$ FOR INPUT  AS 2
  3. 30 INPUT "Enter   change file name-",OF$: OPEN OF$  FOR OUTPUT AS 3
  4. 40 GOSUB 500:GOSUB 700
  5. 50 IF N1=N2 THEN IF L1$=L2$ THEN 40 ELSE PRINT #3,L2$:GOTO 40
  6. 60 IF N1>N2 THEN PRINT #3,L2$: GOSUB 700: GOTO 50
  7. 70 PRINT #3,N1
  8. 80 GOSUB 500: GOTO 50
  9. 500 IF EOF(1) THEN 600
  10. 510 LINE INPUT #1,L1$: N1=VAL(L1$): RETURN
  11. 600 IF NOT EOF(2) THEN PRINT #3,L2$
  12. 610 WHILE NOT EOF(2)
  13. 620 LINE INPUT #2,L2$:PRINT #3,L2$
  14. 630 WEND
  15. 640 GOTO 900
  16. 700 IF EOF(2) THEN 800
  17. 710 LINE INPUT #2,L2$: N2=VAL(L2$): RETURN
  18. 800 PRINT #3,N1
  19. 810 WHILE NOT EOF(1)
  20. 820 LINE INPUT #1,L1$: N2=VAL(L1$):PRINT #3,N1
  21. 830 WEND
  22. 900 CLOSE:PRINT "End of scan"
  23. 910 END
  24.